home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
PPC1B3AA.ZIP
/
FLASH.PPS
< prev
next >
Wrap
Text File
|
1996-08-29
|
879b
|
47 lines
;----------------------------------------------------------------------------
; Copyright(C) 1996, The AEGiS Corporation
;----------------------------------------------------------------------------
;
; PROCEDURE FlashStr()
;
; Flashs a word in the middle of the screen, as when you quit some aegis ppes
;
;----------------------------------------------------------------------------
#lib
#nouser
Declare Procedure FlashStr(String Str)
;----------------------------------------------------------------------------
Procedure FlashStr(String Str)
Color @X0F
Cls
AnsiPos 40-Len(Str)/2,11
Color @X08
Gosub Flash
Color @X07
Gosub Flash
Color @X0F
Gosub Flash
Color @X07
Gosub Flash
Color @X08
Gosub Flash
Color @X0F
Print Space(Len(Str))
Goto EndFlash
:Flash
Print Str
Delay 2
Backup len(Str)
Return
:EndFlash
AnsiPos 1,1
Endproc